home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zn.d64 / proc.u'window < prev    next >
Text File  |  2007-03-01  |  386b  |  15 lines
  1. 0010 ╨╥╧├ U'WINDOW(NUMBER) ├╠╧╙┼─
  2. 0020   ╒╙┼ GRAPHICS
  3. 0030   ├┴╙┼ NUMBER ╧╞
  4. 0040   ╫╚┼╬ 1
  5. 0050     VIEWPORT(60,268,20,164)
  6. 0060     WINDOW(0,26,0,18)
  7. 0070   ╫╚┼╬ 1.1 // FRAME ROUND 1
  8. 0080     VIEWPORT(58,270,16,168)
  9. 0090     WINDOW(58,270,16,168)
  10. 0100     MOVETO(58,16)
  11. 0110     DRAWTO(58,168); DRAWTO(270,168); DRAWTO(270,16); DRAWTO(58,16)
  12. 0120   ┼╬─├┴╙┼ 
  13. 0130 ┼╬─╨╥╧├ U'WINDOW
  14. 0140 
  15.